* lisp/gnus/gnus-srvr.el: Avoid custom-set-variables

* lisp/gnus/gnus-srvr.el (gnus-server-toggle-cloud-method-server):
Prefer customize-set-variable.

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 8a91973e388bc9aba6c05e3169681f604d46c01a..23d8b02efde16a476e3f9f9af760974146a98296 100644 (file)
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -1159,7 +1159,7 @@ Requesting compaction of %s... (this may take a long time)"
       (error "The server under point can't host the Emacs Cloud"))
 
     (when (not (string-equal gnus-cloud-method server))
-      (custom-set-variables '(gnus-cloud-method server))
+      (customize-set-variable 'gnus-cloud-method server)
       ;; Note we can't use `Custom-save' here.
       (when (gnus-yes-or-no-p
              (format "The new cloud host server is %S now. Save it? " server))